home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / animgifx / vb5demo.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1998-12-05  |  6.9 KB  |  235 lines
  1. VERSION 5.00
  2. Object = "{82351433-9094-11D1-A24B-00A0C932C7DF}#1.5#0"; "ANIGIF.OCX"
  3. Begin VB.Form Form1 
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Animation GIF ActiveX Demo"
  6.    ClientHeight    =   6732
  7.    ClientLeft      =   1752
  8.    ClientTop       =   2028
  9.    ClientWidth     =   8400
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    PaletteMode     =   1  'UseZOrder
  14.    Picture         =   "VB5Demo.frx":0000
  15.    ScaleHeight     =   561
  16.    ScaleMode       =   3  'Pixel
  17.    ScaleWidth      =   700
  18.    Begin VB.CheckBox Check2 
  19.       Caption         =   "AutoSize"
  20.       Height          =   255
  21.       Left            =   4440
  22.       TabIndex        =   17
  23.       Top             =   5160
  24.       Width           =   1215
  25.    End
  26.    Begin VB.CheckBox Check1 
  27.       Caption         =   "Transparent"
  28.       Height          =   255
  29.       Left            =   4440
  30.       TabIndex        =   16
  31.       Top             =   4800
  32.       Value           =   1  'Checked
  33.       Width           =   1215
  34.    End
  35.    Begin VB.Frame Frame2 
  36.       Caption         =   "Sequence"
  37.       Height          =   1095
  38.       Left            =   5880
  39.       TabIndex        =   11
  40.       Top             =   5280
  41.       Width           =   2295
  42.       Begin VB.OptionButton optSequence 
  43.          Caption         =   "Pingpong Sequence"
  44.          Height          =   255
  45.          Index           =   2
  46.          Left            =   120
  47.          TabIndex        =   14
  48.          Top             =   720
  49.          Width           =   2055
  50.       End
  51.       Begin VB.OptionButton optSequence 
  52.          Caption         =   "Reverse Sequence"
  53.          Height          =   255
  54.          Index           =   1
  55.          Left            =   120
  56.          TabIndex        =   13
  57.          Top             =   480
  58.          Width           =   2055
  59.       End
  60.       Begin VB.OptionButton optSequence 
  61.          Caption         =   "Normal Sequence"
  62.          Height          =   255
  63.          Index           =   0
  64.          Left            =   120
  65.          TabIndex        =   12
  66.          Top             =   240
  67.          Value           =   -1  'True
  68.          Width           =   2055
  69.       End
  70.    End
  71.    Begin VB.Frame Frame1 
  72.       Caption         =   "Stretch Mode"
  73.       Height          =   1095
  74.       Left            =   5880
  75.       TabIndex        =   7
  76.       Top             =   4080
  77.       Width           =   2295
  78.       Begin VB.OptionButton optStretch 
  79.          Caption         =   "Proportional"
  80.          Height          =   255
  81.          Index           =   2
  82.          Left            =   120
  83.          TabIndex        =   10
  84.          Top             =   720
  85.          Width           =   2055
  86.       End
  87.       Begin VB.OptionButton optStretch 
  88.          Caption         =   "Stretch"
  89.          Height          =   255
  90.          Index           =   1
  91.          Left            =   120
  92.          TabIndex        =   9
  93.          Top             =   480
  94.          Width           =   2055
  95.       End
  96.       Begin VB.OptionButton optStretch 
  97.          Caption         =   "No Stretch"
  98.          Height          =   255
  99.          Index           =   0
  100.          Left            =   120
  101.          TabIndex        =   8
  102.          Top             =   240
  103.          Value           =   -1  'True
  104.          Width           =   2055
  105.       End
  106.    End
  107.    Begin AniGIFCtrl.AniGIF AniGIF1 
  108.       Height          =   3708
  109.       Left            =   240
  110.       TabIndex        =   6
  111.       Top             =   240
  112.       Width           =   7920
  113.       BackColor       =   16761024
  114.       PLaying         =   -1  'True
  115.       Transparent     =   -1  'True
  116.       Speed           =   1
  117.       Stretch         =   0
  118.       AutoSize        =   0   'False
  119.       SequenceString  =   ""
  120.       Sequence        =   0
  121.       HTTPProxy       =   ""
  122.       HTTPUserName    =   ""
  123.       HTTPPassword    =   ""
  124.       MouseIcon       =   "VB5Demo.frx":4B146
  125.       MousePointer    =   14
  126.       GIF             =   "VB5Demo.frx":4B162
  127.       ExtendWidth     =   13970
  128.       ExtendHeight    =   6540
  129.       Loop            =   0
  130.       AutoRewind      =   0   'False
  131.       Synchronized    =   -1  'True
  132.    End
  133.    Begin VB.CommandButton cmdStop 
  134.       Caption         =   "Stop"
  135.       Height          =   375
  136.       Left            =   4440
  137.       TabIndex        =   5
  138.       Top             =   6000
  139.       Width           =   1215
  140.    End
  141.    Begin VB.CommandButton cmdPlay 
  142.       Caption         =   "Play"
  143.       Height          =   375
  144.       Left            =   4440
  145.       TabIndex        =   4
  146.       Top             =   5520
  147.       Width           =   1215
  148.    End
  149.    Begin VB.FileListBox File1 
  150.       Height          =   2184
  151.       Left            =   2400
  152.       Pattern         =   "*.gif"
  153.       TabIndex        =   2
  154.       Top             =   4200
  155.       Width           =   1935
  156.    End
  157.    Begin VB.DirListBox Dir1 
  158.       Height          =   1665
  159.       Left            =   240
  160.       TabIndex        =   1
  161.       Top             =   4680
  162.       Width           =   2055
  163.    End
  164.    Begin VB.DriveListBox Drive1 
  165.       Height          =   315
  166.       Left            =   240
  167.       TabIndex        =   0
  168.       Top             =   4200
  169.       Width           =   2055
  170.    End
  171.    Begin VB.Label Label1 
  172.       BackStyle       =   0  'Transparent
  173.       Height          =   255
  174.       Left            =   4440
  175.       TabIndex        =   15
  176.       Top             =   4440
  177.       Width           =   1215
  178.    End
  179.    Begin VB.Label lblFrame 
  180.       BackStyle       =   0  'Transparent
  181.       Caption         =   "Frame"
  182.       Height          =   255
  183.       Left            =   4440
  184.       TabIndex        =   3
  185.       Top             =   4200
  186.       Width           =   1215
  187.    End
  188. Attribute VB_Name = "Form1"
  189. Attribute VB_GlobalNameSpace = False
  190. Attribute VB_Creatable = False
  191. Attribute VB_PredeclaredId = True
  192. Attribute VB_Exposed = False
  193. Private Sub AniGIF1_Step()
  194.     Label1 = "Frame " & AniGIF1.Frame
  195. End Sub
  196. Private Sub Check1_Click()
  197.     AniGIF1.Transparent = Check1.Value
  198. End Sub
  199. Private Sub Check2_Click()
  200.     AniGIF1.AutoSize = Check2.Value
  201. End Sub
  202. Private Sub cmdPlay_Click()
  203.     AniGIF1.Play
  204. End Sub
  205. Private Sub cmdStop_Click()
  206.     AniGIF1.Stop
  207. End Sub
  208. Private Sub Dir1_Change()
  209.     File1 = Dir1
  210. End Sub
  211. Private Sub Drive1_Change()
  212.     Dir1 = Drive1
  213. End Sub
  214. Private Sub File1_Click()
  215.     s = File1.Path
  216.     If Right$(s, 1) = "\" Then
  217.         s = s & File1
  218.     Else
  219.         s = s & "\" & File1
  220.     End If
  221.     If Not AniGIF1.ReadGIF(s) Then
  222.         MsgBox "Read Wrong", 16
  223.     End If
  224.     lblFrame = AniGIF1.Frames & " Frames"
  225. End Sub
  226. Private Sub Form_Load()
  227.     lblFrame = AniGIF1.Frames & " Frames"
  228. End Sub
  229. Private Sub optSequence_Click(Index As Integer)
  230.     AniGIF1.Sequence = Index
  231. End Sub
  232. Private Sub optStretch_Click(Index As Integer)
  233.     AniGIF1.Stretch = Index
  234. End Sub
  235.